home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / amicvs1-0.lha / AmiCVS / Rexx / CollectLog.cvs
Encoding:
Text File  |  1994-11-05  |  1.0 KB  |  48 lines
  1. /* collect-log */
  2.  
  3. PARSE ARG ProjektPfad Dateien
  4.  
  5. IF ~SHOW( "library", "rexxarplib.library") THEN
  6.   ADDLIB("rexxarplib.library",0,-30,0)
  7.  
  8. Repository = GETENV( "CVSROOT")
  9.  
  10.  
  11. i = POS( "/", ProjektPfad)
  12. IF i = 0 THEN
  13.   Projekt = SUBSTR( ProjektPfad, 2)
  14. ELSE
  15.   Projekt = SUBSTR( ProjektPfad, 2, i-2)
  16.  
  17. ProjektLog = Repository||"/CVSlogfiles/"||Projekt||".log"
  18.  
  19.  
  20. SAY( "Maintaining log file for project '"||Projekt||"'")
  21. IF ~EXISTS( ProjektLog) THEN
  22.   DO
  23.     SAY( "Create new log file '"||ProjektLog||"'")
  24.     OPEN( LogFile, ProjektLog, "Write")
  25.     WRITELN( LogFile, "")
  26.     WRITELN( LogFile, "CVS log file for project: "||Projekt)
  27.     WRITELN( LogFile, "")
  28.     CLOSE( LogFile)
  29.   END
  30.  
  31.  
  32. DateTime = "Date: "||DATE()||", "||TIME()
  33.  
  34. OPEN( LogFile, ProjektLog, "Append")
  35.  
  36. WRITELN( LogFile, "")
  37. WRITELN( LogFile, "=====================================================================")
  38. WRITELN( LogFile, "")
  39. WRITELN( LogFile, DateTime)
  40.  
  41. DO WHILE ~EOF( STDIN)
  42.   Line = READLN( STDIN)
  43.   WRITELN( LogFile, Line)
  44. END
  45.  
  46. WRITELN( LogFile, "")
  47. CLOSE( LogFile)
  48.